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STOMP AxMiiRr ^ _,^ 

^Kf 111% •• by Kerry Shetline 

translation by Alan J. Zett 

STOMP is a utility to help track down typing errors in programs from Soft- 
Side Selections. It replaces SWAT beginning with Issue 45. 



Note: Please read all the instructions for STOMP before beginning. 



Why STOMP? 

The purpose of STOMP (Stop Typos On My Programs) is to aid the reader 
who types BASIC programs from a Hsting in SoftSide or SoftSide Selections. 
It is SoftSide's new official debugging utility. Until now, this function was filled 
by SWAT vihic\\ readers hailed as a great aid in tracking down the inevitable 
errors that occur when you type several pages of BASIC code. The concise 
SWAT table narrows the search for errors to no more than twelve lines of 
code. For complex programs, you can reduce this number at will. 

Nonetheless, SPF/irhas drawbacks and deficiencies. For one thing, to get a 
matching SIF/17"table, readers must type every line of the program exactly as 
it appears in the magazine. Even REM statements, which BASIC ignores, have 
to be replicated precisely. Also, SWAT can'X detect simple transpositions. This 
means that the numbers 32767 and 36277 are identical to SWAT. If these 
numbers are part of a DATA statement for a machine language routine, the 
computer may hang up, or important data may vanish. Furthermore, because 
SWATis written entirely in BASIC, it is quite slow. In sum, SWAT, although 
a big help, leaves much room for improvement. 

STOMP corrects SWAT's deficiencies. It is faster, easier to use, and more 
reliable than SWAT. In addition, STOMP ignores REM statements and in- 
significant spaces. If you type BASIC programs from SoftSide Selections, 
STOMP will save you many hours. 

You may omit any REM statements that appear in our programs. If you do 
so, be sure to remove any colon (:) immediately preceding the word REM. In 
addition, feel free to add REM statements (within the constraints of memory) 
without changing the STOMP tables. 

The tables STOMP generates are identical in appearance to SWAT tab\es, 
so SWAT veterans will have no trouble interpreting STOMP tables. Type 
STOMP in now, and start using it right away! 



Starting Up With STOMP 

STOMP is a hybrid of machine language and BASIC. The machine 
language portion of STOMP occupies a string in the BASIC program. To 
create STOMP, type the listing for the STOMP Generator below. Save this 
program, check it with the procedure below, and run it. 



Checking STOMP Generator And Saving STOMP 

The first thing the program asks you is whether to save STOMP to disk or 
cassette. To test the program, however, press "E" to run the program without 
actually saving STOMP (the material that would go to the magnetic media 
goes instead to the screen). If everything is proper, the program lines that con- 
tain the machine language appear on the screen, and are entered into the pro- 
gram. Then, the message "Generating STOMP..." is displayed, and the 
STOMP program appears. 

If you see the message, "Error in DATA lines 100-140...," re-load the 
Generator program, and carefully check those lines for errors. 

Now, in lines 32190 and 32230, change the number 125 to 128. List these 
lines, then use your cursor movement keys to move the cursor over the number 
5 in each hne, type over it with the "8" key, and press Return. 

Next, type GOTO 32000. This creates a STOMP table for the STOMP 
Generator. Compare this table to the published one. If they match, then re- 
load the STOMP Generator, and run it. This time, select "D" or "C" to save 
the STOMP program to disk or cassette. 

If you choose to save STOMP on cassette, the Atari buzzes twice. This 
signals you to prepare a cassette and press the Return key. If you choose disk, 
the STOMP Generator automatically saves STOMP under the file name 
"STOMP" on drive 1. 



Using STOMP 

First, type and save the program you are going to check. Then follow these 
simple steps: 

1. Place the disk or cassette on which you saved STOMP in the disk drive or 
tape recorder. 

2. Add STOMP to your program with the ENTER command. 

Disk: ENTER "D:STOMP" 
Tape: ENTER "C:" 

3. Press the Return key once for disk, or twice for tape. 

4. Type GOTO 32000 

5. Press the Return key. 

6. When STOMP asks you for the name of the program, press Return, or type 
an identifying name. 

7. If the published STOMP table lists modified "parameters," type them in 
response to the next prompt, line count first, then byte count, separated by a 
comma. For example, if the table says: "Modified Parameters: Line count = 
3, Byte count = 200," you would type "3,200" and press Return in response 
to this prompt. If no special parameters are listed, then simply press Return. 

If you have a printer turned on and connected to your Atari, STOMP 
automatically sends its output there. With or without a printer, the STOMP 
table appears on the screen. Compare the table you get with the one we publish 
along with the program you are checking. If they match, you may go ahead 
and enjoy the program. If not, see the section below. 

What To Do If The STOMP Tables Don't Match 

• First examine the listed line numbers in the first columns of the tables. If 
they don't match, it probably means you have inserted, omitted or changed at 

■^ STOMP " 
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least one line number. A large omission from a line can also throw off the first 

column. An extra or missing line affects all entries in the first column from 

that point on. Search the lines indicated by the first erroneous entry for the 

bad line, and correct it. Then try running STOMP again to see if the entries 

match. 

• If, after you have verified all the line numbers, there are still discrepancies 

in the second or third column, you need to make a more detailed search. 

(a) If the length for a range of lines is too big, then it is likely that you typed 
too many spaces or other characters in a PRINT or DATA statement. Check 
all variable names. 

(b) If the length entry is too small, check for omissions. Did you leave out 
part of a line? Did you miss a character in a PRINT or DATA statement? 

(c) If the length is correct but the STOMP code is wrong, check the ap- 
propriate lines for transposed or mistyped characters. 

Remember that STOMP ignores REM statements and spaces that aren't 
significant. Anything within quotation marks is vital, and you must type it 
precisely. The same goes for DATA statements, except for spaces between the 
word DATA and the first item, which are not important. 



What's All This About Parameters? 

Parameters are simple to understand. Normally, STOMP starts a new line in 
its table when it has checked twelve lines or 500 bytes of memory, whichever 
comes first. This means it will narrow your search for typographical errors to 
about a twelve-line range of the program. If a program is particularly com- 
plex, we make STOMP generate new table entries at smaller intervals, making 
your search for typos still easier. 
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If you don't wish to type tills proflram. It Is 
available on Issue #45 SoftSlds DV and CV. 

Initialize and choose an output 
device for the STOMP program. 

10 BRAFHICS 0:CLR :DIf1 fi*(li,F«!7)!? " 
OUTPUT TO DISK OR CfiSS ";: INPUT A$:IF 
A$="" OR A$<"C" OR ft*>"E" THEN 10 



Change the device letter in A$ into a 
device specification in F$: "C:" for 
cassette or "D:STOMP" for disk. For 
initial program checking, the device 
specification "E:STOMP" may also 
be generated. 

20 Fl=fi$:Fi(2)=':":IF A$="C" THEN 40 
30 F*(3)="ST0HP" 

Calculate the checksum of the 
machine language DATA, and 
display a message if the sum is in- 
correct. 

40 Z=0:FDR .<=! TO 152:READ y:Z=2+y:NE)( 
T X:IF 2O18401 THEN GRAPHICS 0:? "ERR 
OR IN DATA LINES 100-140.. .":END 
Erase the screen, read the first half 
of the DATA, and create the first 
dummy line of BASIC. 
50 GRAPHICS OrRESTORE :POKE 7ifc,l:? :? 
:? '32050 S*=';CHR*(34);:F0R X=l TO 7 
6:REA0 Y:? CHRI(Y);:NEXT X:? 



Read the second half of the DATA, 
and create the second dummy line 
of BASIC. Also set up the CONT for 
line 70. 

iO ? "32040 St!77(=";CHR$(34)!!F0R X=7 
7 TO 152:REM Y:? CHR$(Y);;NEXT X:POKE 
766,0:? :? "CONT" 

Point the cursor to fall on the first 
dummy line, POKE the Atari Into the 
continuous input mode, and break 
out of the program to enter the new 
lines of BASIC. The Atari will enter 
the two lines, reach the CONTinue 
statement, and execute the rest of 
the program, starting at line 80. 
70 POSITION 2,0!P0KE 9'12,13:£T0F 
Clear the continuous input mode, 
and generate STOMP by LISTIng the 
STOMP lines of STOMP Generator 
to the device specified in F$. 

80 POKE 342,1!:GRAPHIC3 0:? "SENERfiTIK 
6 STOHP...":LIST F$, 32000, 327i7:END 

Data for the machine language por- 
tion of STOMP to be contained in S$. 

100 DATA 104,240,21,104,133,204,104,13 

3,203,169,0,133,205,133,206,133,207,14 

1,0,6,141,1,6,96,160,0,162,0,142,2,6 

no CftTA 200,177,203,208,251,200,232,1 

89,3,6,209,203,208,15,201,45,208,243,1 

73,0,6,133,212,173,1,6,133,213,96,160 

120 DATA 0,177,203,2i;ia,14,173,2,6,74,l 

76,8,200,208,243,230,205,24,144,225,15 

2,72,173,2,6,208,21,162,0,177,203,221 

130 DATA 3,6,208,12,201,45,208,4,104,2 

4,144,227,200,232,208,237,104,168,177, 

203,201,2,208,10,72,173,2,6,73,1,141 

140 DATA 2,6,104,132,212,6,212,69,212, 

24,109,0,6,141,0,6,144,3,238,1,6,230,2 

06,208,180,230,207,208,176 

Set up page-6 pointers, and test 
whether a printer is ready and on- 
line. The variable P will be set to if 
the printer is not ready, and 1 if it is. 

32000 POKE 1539,26:P0KE 1540,50:P0KE 1 
541,37:P0KE 1542,45:CLR :TRfiP 32010:CL 
QBE KUOPEN »1,8,0, "P":P=1 
32010 TRAP 33333: GRAPHICS 0:P0S1TI0K 6 
,1:7 " ATARI STQMP fiv ALAN J. ZETT ':':' : 
? :? :? "PROBRAH NAME ";:DIrt A$(20) 



Print title, prompt for program 
name, dimension strings, input the 
program name and new STOMP 
parameters (if not default). 



32020 Din S*il52i,Z«tS):Z$=" ": 

INPUT AJ:TRAP 32030:' :? "STONP PARAME 
TERS ";: INPUT NO, fi: GOTO 32040 
32030 NU= 12:8=500 

Set up two graphics screens; one 
to display the STOMP table, and the 
other to hold each line of BASIC 
code as it is listed into screen 
memory. In this way, the lines can 
be scanned In ASCII by the machine 
code portion and remain invisible to 
the user. The ASCII method 
eliminates SWAT'S problem with the 
variable table, so listing programs 
to cassette or disk is now unnec- 
cesary. 

32040 TRAP 33333:GRAPHICB 0:T=PEEK(106 
);L=T-4:S=L-4:P0KE 1C6,L:GRAPHICS 

Lines 32050 and 32060 contain the 
machine language routine in the 
variable S$. These lines will be 
created by STOMP Generator. 

Find the memory location of the 
first line of BASIC and check 
whether a program name has been 
specified. 

32070 POSITION 2,23;NL=PEEK(136)+PEEKi 
137)J256:IF A*="" THEN 32090 
Print the program name and 
modified parameters, if specified. 
32080 ? "ATARI STOMP TABLE FOR ";At:? 
:IF P THEN ' SI; "ATARI STOMP TABLE FOR 
"iAt;? «1 
32090 IF NU=12 AND B=500 THEN 32110 
32100 ? "PARAMETERS ARE: ";NU;" AND "; 
B:? :IF P THEN ? it 1; "PARAMETERS ARE: " 
;NU;" AND ";B:? «1 

Print header information for STOMP 

32! !0 POKE 752,1:? " LINES C 
ODE LEN":? " 



32120 IF F THEN ? HI; 
CODE LEN":? Sl;"- 



LINES 



-STOJVIP- 
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Initialize S$ to lool< at the second 
screen area, and reset important 
pointers between line ranges. Also 
reset the first-line pointer FL 

32130 X=UBRiftDR(S$),L»256+104):FL=-l 

Calculate this-line (TL) and next-line 
(NL) pointers, the current line number 
(LN), and the more significant byte of 
the next line number (Q). 

32140 TL=NL:NL=TL+PEEK(TLt2) :LN=PEEt;.(T 
L)+PEEKiTL+l)t25i:S=PEEK(NL+l) 

List one line of BASIC code to the 
alternate screen, and execute the 
STOMP machine language 
subroutine. Check whether the line 
just listed is a valid first line 
number for the range (REMs do not 
count as a valid line number; they 
are ignored). 

32150 POKE 10i,T:P0KE 82,0:P0KE 89, L:? 
CHR$U25) ; :LIBT LN:CS=USR(ADRiSi) ) : IF 
PEEK(205)=1 AND FL=-1 THEN FL=LN 

Point back to the first screen and 
store the number of bytes in the last 
line STOMPed into the variable BC. 

32160 POKE 82,2;P0KE 89,S:POKE 106, L:E 
C=PEEKi206)+PEEK!207)t256 

Check whether the maximum 
number of lines in a line range has 
been counted by STOMP. (Line 
count = 12 for default parameters.) 

32170 IF PEEK (205) =NU THEN 32200 
Check whether the maximum 
number of bytes in a line range has 
been counted by STOMP. (Byte 
count = 500 for a default 
parameter.) 

32180 IF BC>=B THEN 32200 
If the more significant byte of the 
next line number is less than the 
start of the STOMP program, then 
continue listing codes in the table. 

32190 IF D<125 THEN 32140 
Calculate a STOMP code from the 
line range checksum and display 
one line of the STOMP table. 

32200 POSITION 2,23:CS=CS-INT!C.S/676)« 
676:Cl=INT(CS/26):C2=C3-C.ll26+65!? 2*1 
l,6-LEN(STR$iFL)));FL;" - ";LNj 
32210 ? Z*(l,9-L£NiSTRi(LN)));CHR«(Cl+ 
65);CHRli(C2)jZ$(l,7-LEN(STR$(BC)));BC: 
IF F=0 THEN 32230 
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32220 ? Sl;Zt(l,s-LEN(STRt(FL)))!FL;" 
- ";LN;I$il,?-LENiSTRt(LN))"l;CHR$iCl+6 
5);CHR«!C2);Z$(l,7-LEN(STRtlBC)));BC 

Set the checksum and the quote 
flag to zero, and continue listing 
codes in the table if the last pro- 
gram line before STOMP hasn't 
been processed yet. 
32230 POKE 205,0:P0KE 206,0:PQKE 207,0 
:IF Q<125 THEN 32130 
Reset important pointers and end 
the program. 

32240 POKE 10.5,T:POKE 89, L:? CHR$(125) 
:POKE 89,S:P0S!TIQN 2,23:PQKE 752,0:7 
SEND 
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For ATARI® STOMP GENERATOR 

(Modified Parameters: 

Line count = 3, byte count = 200) 
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LINES 


CODE 


LENGTH 


10 - 30 


W 


143 


40 - 60 


PM 


271 


70 - 100 


PN 


207 


110 - 120 


UZ 


222 


130 - 140 


VB 


210 


32000 - 32020 


TW 


291 


32030 - 32050 


YT 


170 


32060 - 32080 


ML 


229 


32090 - 32110 


FL 


191 


32120 - 32140 


CH 


18! 


32150 - 32170 


RP 


185 


32 180 - 32200 


LC 


146 


32210 - 32230 


MH 


249 


32240 - 32240 


OC 


72 .^,« 
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by Steven Chanin 

Draw 7 + is a graphics editing program for an Atari® with 40K RAIVI, 
one disk drive and a joysticl(. 

The Atari personal computer's most striking feature is its graphics. The 
high-resolution multicolored pictures featured in many new games are amaz- 
ing. Unfortunately, for the average user, the graphics modes used by the pro- 
fessionals are not standard. Previously, the only way to create these visual 
masterpieces was with expensive graphics editors, or by doing an in-depth 
study of machine language, modified Display Lists and many other difficult 
topics — until now. Draw 7+ lets your artistic urges flow for free, using what 
I call GRAPHICS 7-I-, an ANTIC mode not implemented in BASIC. 
GRAPHICS 7+ is a half-height GRAPHICS 7 screen, so it requires two 
separate screens to build the display. With its 160 horizontal by 192 vertical 
resolution in four colors, you can create pictures rivaling those of many com- 
mercial programs. 

Most of Draw 7+ is in BASIC, so it is short, powerful and easy to modify. 
Later in this article, I will take the program apart piece by piece so you can see 
how to use its techniques in your own programs. Because Draw 7+ contains 
machine language routines, you should save your copy before running it. 

For those who just want to draw, read the instructions below and run the 
program. Draw 7+ has three modes: Draw, Expand and Color. 



Draw Mode 

Use the Draw Mode to create your picture. Pushing the joystick in any of its 
eight directions moves the cursor in that direction. Pressing the fire button 
plots the point beneath the cursor. Pressing the fire button while pushing the 
stick draws a line in the desired direction. 



Draw Commands 

• To change the cursor's drawing color, enter a number from zero to three. 
Colors 1, 2 and 3 are foreground colors. Color is the background color and 
drawing in it is equivalent to erasing. 

• SELECT saves a picture to disk under the current file name. If another pic- 
ture with the same name has been saved, the new picture will replace it. To 
change the file name, see the Name Mode. 

• OPTION loads the picture from the disk under the current file name. To 
change the file name, see the Name Mode. 
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• S clears the GRAPHICS 7+ screen, resets the color values and returns the 
cursor to the center of the screen. The program will ask if you want to erase the 
screen. Type N or Y and press return. 

• C sends you to the Color Mode. 

• N sends you to the Name Mode. It lets you change the name of the current 
picture. Pressing N prints the current file name and a prompt, which asks if 
you want to change it. Type N or Y and press return. When typing the new 
name be sure to prefix it with "D:". Note: Use an extension of .PIC for clarity. 

• E expands the area around the cursor from GRAPHICS 7 + to 
GRAPHICS 3 so you can do detailed work. See the Expand Mode instruc- 
tions. 

• H displays a menu of all the Draw 7+ commands (for all three modes). 

• L draws a flashing "cross hair" to help you locate the cursor (if you can't 
find the flashing dot). To resume drawing, press any key. 



Expand Mode 

The Expand Mode is similar to the Draw Mode. It also features movement 
and drawing in eight directions and four colors. 

• D compresses the GRAPHICS 3 screen into the box on the GRAPHICS 
7 + screen and returns you to the Draw Mode. 



Color Mode 

In the Color Mode you may change the hues and intensities for colors 1 
through 3, as well as for the background. The changes are not permanent (i.e., 
they are not saved with the picture) so you can modify the colors without fear 
of "ruining" your picture. When you arrive in the Color Mode you are modi- 
fying color 1. Color changes are retained until you type either the command 
"S" or stop the program. A saved picture which had modified colors will have 
"standard" colors when you reload it from disk. 

• To change the cursor's drawing color, enter a number from zero to three. 
See Draw commands. 

• SELECT increases the hue of the color you are modifying. For example, if 
you were working on color 1 (pink) and you hit SELECT twice, color 1 
becomes blue. Changing the hue has no effect on the intensity. 

• OPTION increases the intensity of the color you are modifying. For exam- 
ple, if you were working on color 1 and it had an intensity of 5, hitting OP- 
TION would change the intensity to 6, Note: You will have to press OPTION 

twice for it to affect the screen, because only even intensities are valid. 

• D returns you to the Draw Mode (modified hues and intensities are retained). 



Logical Operators 

One of the most useful but ignored BASIC operations is the logical com- 
parison. In Atari BASIC the statement "A>B" will return a one if A is 
greater than B, or a zero if A is smaller than B or they are equal. This technique 
can, if used correctly, replace a lengthy series of "IF.. .THEN" statements. 
As an example of this technique I will explain a line from the Draw 7+ pro- 
gram listing. Here is Une 970: 

970 XP = XP + 1 :XB = XB -t- (XP = 4) :XP = XP - 4*(XP = 4):XB = XB - 
(XB = 40): RETURN 



The following IF... THEN statements replace line 970: 



XP = XP+1 

IFXP = 4THEN XB = XB + 1 

IF XP = 4 THEN XP = 

IFXB = 40THENXB = 39 

RETURN 

Line 970 begins by incrementing XP. If XP = 4 then the expression (XP = 4) 
equals 1 and SB is incremented. If XP =4 then 4*(XP = 4) equals 4 and XP is 
reduced to zero. IF XB = 40 then (XB = 40) equals 1 and XB is reduced to 39, 
otherwise (XB = 40) equals and SB stays the same. Finally the line returns to 
the line which called it. 

One of this program's most powerful features is the graphic expansion 
routine. It displays, in GRAPHICS 3, a portion of the GRAPHICS 7 + screen 
around the cursor. It sets up a GRAPHICS 3 screen below the GRAPHICS 
7+ screen and copies the screen memory data around the cursor to the 
GRAPHICS 3 screen. 

Having two co-resident screens is easier than it looks. Just lower the high 
memory pointer (106 or $6A) so the top of memory starts below the higher 
Display List and screen memory. After you push the pointer down, a normal 
BASIC GRAPHICS command (i.e. GRAPHICS 3) sets up the new screen and 
takes care of all the system pointers for you. To return to the first screen, 
restore the high memory pointer to its original value, and execute another 
GRAPHICS command with the clear screen option disabled (accomplished by 
adding 32 to the value specified in the GRAPHICS command). The only prob- 
lem with this technique is that the values in the color registers are reset to the 
default values; therefore, you must save and restore them after the 
GRAPHICS command is finished. Lines 1210 and 1220 do this. 

Because so much has been written about modifying Display Lists, I will only 
give a brief synopsis of the technique. I set the value of the variable DL with 
the Display List Pointer in RAM. This insures that the program will run on 
computers with different amounts of memory. Stepping through the Display 
List, I changed the mode line bytes from fifteen (GRAPHICS 8) to fourteen 
(GRAPHICS 7 + ). Finally, I changed the LMS bytes from a 79 (GRAPHICS 8 
w/LMS option) to a 78 (GRAPHICS 7-1- w/LMS option). This Display List 
modification was simple because both GRAPHICS 1+ and GRAPHICS 8 
have 192 vertical mode lines and require the same amount of memory. 

Feel free to modify the program to your heart's delight. If you renumber the 
program after making modifications, be sure to check the branches from line 
140 toUnes 150-170because these do «o/ work with increments often. Exercise 
the same care with lines 730-760 because these also will not work with in- 
crements of ten. I will be glad to answer questions about this program — just 
write to me c/o SoftSide. 



A$: Holds reply to yes and no 
questions. 

B: Memory location of 
GRAPHICS 7 + cursor in 
memory. 

C: Current drawing color (in Ex- 
pand and Draw Modes). 



Variables 

C1-C4: Temporary storage of 
screen colors. 

CONSOL: Value of Atari console 
keys (START, SELECT, OP- 
TION, AND SYSTEM RESET). 
CORNER: Memory location of the 
upper left hand corner of the 
GRAPHICS 1+ cursor window. 
DRAW 7+ 
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DL: Location of Display List in 
memory. 

E: Offset from current cursor posi- 
tion to the end of the GRAPHICS 
7+ cursor window (used by the ex- 
pansion and locate routines). 
FN$: Filename used for disk I/O. 
KEY: Value of last key pressed. 
L: Offset from the current cursor 
position to the left side of the 
GRAPHICS 7 + cursor window 
(expansion routine). 
R: Offset from the current cursor 
position to the right side of the 
GRAPHICS 7 -t- cursor window 
(expansion routine). 
RAMTOP: Top of memory 
pointer. 

S$: Contains the stored screen data 
(locate routine). 
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SIZHI.SIZLO: Variables used for 

disk I/O. 

T: Offset from the current cursor 

position to the top of the 

GRAPHICS 7 -I- cursor window 

(expansion and locate routines). 

TVAHI,TVALO,TVSIZ: Variables 

for disk I/O. 

XB: Horizontal location of the 

byte containing the GRAPHICS 

1+ cursor. 

XLEN: Width of the GRAPHICS 

7 4- cursor window. 

XP: Horizontal position of a 

selected pixel in XB. 

YB: Vertical location of the byte 

containing the GRAPHICS 7 + 

cursor. 

YLEN: Length of the GRAPHICS 

7+ cursor window. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

ss Atari BASIC SS 

SS 'Draw 7+' SS 

SS Author: Steven Chanin S3 

SS Copyright © 1983 SS 

SS SoftSide Publications, Inc SS 

SS SS 
SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to type this program, It Is 
available on Issue #45 SoftSlds DV and CV. 

Intialization. 

2(1 GRAPHICS 24:DIM FNt(17),ft4!li ,SM5) 
:POKE 77,fi;BL=PEEK(560!+256>PEEt((56lii 

8DSUB 1010 

Set up machine language routines 

(see also "Listings 1 and 2). 

30 FOR X=1536 TO 1722;READ ?:POKE ;:.Vi 

NEKT X 

40 OAIA 104,10'!, 104, 141,255,4, 104, 104, 

141,254,6,104.104,141,253,6,173,255,6, 

24,106,106.106,141,255 

50 DATA 6,169,63,172,253,6,240,7,74,74 

, 9, !92, 136, 203, 249, 141, 252, 6, 173, 254, 6 

,45,252,6,141 

60 DATA 254,6,173,255.6,172,253,6,240, 

5,74,74,136,208,251,141,252,6,173,254, 

6,13,252,6,133 

70 DATA 212, 169,0,133,213,96 



SO PATH 104,104,133,91,104,133,90,104, 

104, 141 ,255,6, 104, 104, 141,254.6, 104, 10 

4,141,253,6,160,0,173 

90 DATA 253,6,208,7,177,90,145,86.24,1 

44,4,177,88,145,90,200,204,255,6,208,2 

14.165.90,24,105 

100 DATA 40,133,90,165,91,105,0,133,91 

,165,88,24,105,10,133,88,165,89,105,0, 

133,89,206,254,6 

110 DATA 173,254, 6, 201, 0,208, 196, 96 

120 DATA 104, 201, 1,208, 10, 104, 104,141, 

114,3,162,48,32,86,228,133.213,169,0,1 

33,212,<}6,0 

More Initialization. 

130 .<B=!9;5P=0:YB=96!C=l;FNt="D!?!CTUI? 

E1.PIC":P0KE 764,255 

Process joystick movements. 

140 CLOSE «3;KEy=PEEK(764!:C0NS0L=PEEK 

(53279) iPDKE 77,0:TRAP UOsGOTO 140^2* 

STlCKiO) 

150 GOSUB 970;G0BiJB 99O:B0T0 240 

152 GOSUB 970:GQSIJB lOOOiGOTO 240 

154 BOSUB 970: GOTO 240 

158 GOSUB 980:G03UB 990:8010 240 

160 GOSUB 930; GOSUB 1000: GOTO 240 

162 GOSUB 98O:GOT0 240 

166 GOSUB 990:G0TG 240 

166 GOSUB 1000:6QTO 240 

170 GOTO 240 



Draw Mode commands. 

240 B=DL+4inVB+XS+282:IF STRI6((iJ=0 TH 
EN :«=USRi 1536, C, PEEK (Bi.XP): POKE B..K;G 
OTQ 140 

250 IF C:0NSDL(7 OR KEVX255 THEN 260 
252 X=PEEK(B)!Y=USR(1536,ftI,X,)(P):P0i;E 

B,Y!ftZ=A2+l!lF flZ=4 THEN AZ=0 
254 FOR Z=l TO 10:NEXT IsPOKE BJiEOTD 

140 
260 IF KEY=31 THEN C=1:P0KE 704,255:60 
TO 140 

270 IF KEY=30 THEN C=2;P0KE 764,255:60 
TO 140 

280 IF KEY=26 THEN C=3;P0KE 764,255:80 
TD 140 

290 IF KEY=50 THEN 0=0: POKE 764,255:00 
TO 140 

300 IF CONSOLES THEN )!=11:R0TD 390 
310 IF C0NS0L=3 THEN X=7;G0TO 390 
320 IF KEY=ia THEN )(=70S;Y=1NT(PEEK(X) 
/16):Z=PEEKO;j-16>Y:P0KE 764,255:60T0 
420 

330 IF KEY=35 THEN POKE 764,255:60T0 5 
50 

340 IF KEY=62 THEN POKE 764,255!SDT0 6 
10 

350 IF KEY=42 THEN POKE 764, 255: SOTO 6 
50 

360 IF KEY=57 THEN POKE 764,255:enT0 1 
030 

370 IF KEY=0 THEN POKE 764, 255: GOTO 11 
40 

3B0 POKE 764,255:G0T0 140 
Disk Save/Load routine. 
390 OPEN #3,X-3,0,FN$:Rfll1TOF=PEEK(!06) 
»256:TVSIZ=RAKT0P-DL 
400 SIZHI = INT(TVSU/256):BIZL0=TVSiZ-B 
IZHI*256:TVAHI=INT(DL/256):TVflL0=DL-TV 
AHU256 
410 POKE B84,TVAL0:P0KE 885,TVAHI:P0KE 

8e8,3IZLQ!P0KE 839, SIZHI:Z=USR (1691, )( 
): CLOSE 13: GOTO 140 
Coior Mode. 

420 CONSDL=PEEK (53279) :KEY=PEEK (764) 
430 IF KEY=31 THEN X=708;P0KE 764,255: 
GOTO 540 

440 IF KEY=30 THEN X=709:P0KE 764,255: 
BOTO 540 



450 IF KEY=26 THEN X=710:P0KE 764,255: 

GOTO 540 

460 IF KEY=50 THEN X=712:P0KE 764,255: 

GOTO 540 

470 IF CONSOLES THEN Y=Y+1:Y=Y-16«(Y=1 

6): BO TO 520 

480 IF C0NSDL=3 THEN Z=Z+l:Z=Z-16t(Z=l 

6): GOTO 520 

490 POKE X,16«Y+Z 

500 IF KEY=58 THEN POKE 764,255!S0T0 1 

40 

510 BOTO 420 

520 IF PEEK(53279)«7 THEN 520 

530 GOTO 490 

540 Y=INT(PEEK(X)/16):Z-PEEK(X)-16»Y:G 

OTO 420 

Change Name. 

550 POKE 106,PEEK{106)-32:GDBUB 1210:G 
RflPHICS 0:POSITION 7,7:PRINT "OLD NAME 
=";FNi 

560 POSITION lO.lOrPRINT "CHANGE IT (Y 
/N)";: INPUT A$:IF Ai(}"Y" AND AJO'N" 
THEN 560 

570 IF A$="N" THEN POKE 106, PEEK (106)+ 
32:BRftPHlCS SiiBOSUS 1220:60SUB 1010:6 
OTO 140 

530 POSITION 10,13;PRINT "NAME l«ITH D 
:)":POSITION 10,14!lNPUT FNt 
5B5 IF LENiFN$)<3 THEN PRINT CHR*!253) 
;CHRt(253);CHR$(253):S0TD 580 
590 IF FNtil,2J<>"0:" THEN PRINT CKRt( 
253);CHRt(253)!CHR1i(253):GQT0 580 
600 POKE 106,PEEK(!0i)+32:6RapHICS 56; 
GOSUB 1220:G0SUB lOlOiGOTO 140 
Erase screen command. 



610 POKE 106,PEEK(106)-32:GOSUB 1210;B 
RAPHICS 0:POSITION 13,9:PRINT "ERASE S 
CREEN":POBITIGN 13,11 
620 PRINT "SURE (Y/N)";: INPUT A$;!F A$ 
<)"Y" AND A4<>"N" THEN 620 
630 POKE 106,PEEK(!06)+32:IF A$="N" TH 
EN GRAPHICS 56:B0SUB I220:G0SLIB 1010;G 
OTO 140 

640 GRAPHICS 24:G0BUB 1010:XP=0;;«B=19: 
YB=96:GQT0 140 

Expand GRAPHICS 7+ window to 
GRAPHICS 3 screen. 
650 POKE 106,PEEK(106)-32:R=XB+4;L=IB 
5:T=YB-12:E=YB+11 
DRAW 7 + 
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i60 IF R>39 THEN R=R-];6GTa 6iO 

fa70 IF L<(i THEN 1=1+1 :60TQ 670 

680 IF T<0 THEN T=T+1:60TD 680 

490 IF £>m THEN E=E-1:60T0 6v(i 

700 XLEN^R-L + l : YLEN=E-T+1 ; CORNER=PEEk >: 

83)+256IPEEKi89.l+40*T+L 

710 GOSUB 1210:6RAPH1l:S 19:C0L0R C;D1 = 

PEEK(B8i:D2=PEEK(B9):D3=PEEK('?fl):D4=PE 

EKi9D 

720 !i=USRi 1617, CORNER, i(LEN,YLEN,0):POI; 

E 8B,D1:P0KE e9,D2:P0KE 90,D3:P0KE 91, 

D4:>.=20;Y=12 

Process joystick movements. 

730 TRAP 730:KEY=PEEK(764>;50T0 730+2> 

STICK. iO) 

740 GOSUB 930; GOSUB 950!60TQ 830 

742 GOSUB 930:GDSUB 960!60T0 330 

744 SOSUB 930: GOTO 830 

748 GOSUB 940: GOSUB 950: GOTO 830 

750 GOSUB 940:0DSUB 960; GOTO 850 

752 GOSUB 940: SOTO 830 

754 GOSUB 950: GOTO 830 

75B GOSUB 960: GOTO 830 

760 GOTO 830 

Expand Mode commands. 

830 IF STRI6(0)=0 THEN PLOT ;i,Y;FQR 7= 

1 TO 30: NEXT Z:GOTO 730 

840 IF KEY=JI THEN C=1:P0KE 764,255:60 

TO 730 

850 IF KEY=30 THEN C=2:P0KE 764,255:60 

70 730 

860 IF KEY=26 THEN C.=3:P0KE 764,255:60 

TO 730 

870 IF KEY=50 THEN C=0;POKE 764,255:60 

TO 730 

880 IF KEr=58 THEN POKE 764, 255: GOTO 9 

00 

890 LOCATE X,Y,Z:COLOR AZ:FLOT X,Y:FOR 

H=l TO 15; NEXT W 
892 COLOR i:PLOT );,Y:FOR W=l TO 15:NEX 
T W:AZ=ftZi-l:IF AZ=4 THEN AZ=0 
894 COLOR C:GOTO 730 
900 D1=PEEK(88):D2=PEEKI89):D3=PEEK(90 
):D4=PEEK(9i:i;X=USR(1617, CORNER, XLEN.Y 
LEN,1) 

910 POKE 88, Dl: POKE 89, D2: POKE 90,D3:P 
OKE 91, D4 



920 POKE 106,PEEK(104)+32;PUKE 764,255 
:EGSUB 1210:GRAPHICS 56:60SUE 101y:60T 
140 

Change cursor position (Expand 
Mode). 

930 :<=>;+ i:X<39); RETURN 
940 X=M>;>0): RETURN 
950 Y=Y+(i<23): RETURN 
960 Y=Y-(Y>0): RETURN 
Change cursor position (Draw 
Mode). 

970 XF-XP+1;XB=);B+(XP=4):XP=SP-4»(XP=4 
l:XB=XB-(XE=40):RETURN 
9B0 XF-XP-1:X3=XB-(XP=-1);XB=XB+(XB=-! 
.l;XP=XP+4t(XP=-l):RETURN 
990 YB=YB+1:YB=YB-(YB=192) :RETURN 
1000 YB=yB-l:YB=YB+IYB=-!):RETURN 
Set upGRAPHiCS7 + . 
1010 FOR X=DL+6 TO E)L+93:P0KE X,U:NEX 
T X:F0R X=DLtl02 TO DL+193:P0KE X,14:N 
EXT X 

1020 POKE »L+3,78:PQKE DL+99. 78: RETURN 
Help Menu. 

1030 POKE 106,PEEK(104)-32!6RAPHICS 0: 

POSITION 14,0:PRIMT " DRAliI ME ": PRINT 

"BUTTON - PLOT POINT" 

1040 PRINT "STICK - MOVE CURSOR";PRIN 

T "I (0-3)- CHANGE COL0R":PRINT "SELEC 

T - SAVE" 

1050 PRINT "OPTION - LOAD":PRINT "S 

- CLEAR SCREEN": PRINT "C - COL 
OR NODE" 

1060 PRINT "N - CHANGE NA!1E":PRIN 
T "E - EXPAND SCREEN":PRINT "H 

- HELP (THIS SCREEN)" 

1070 PRINT "L - LOCATE CURSOR":P0 
SITION 13,13;PRItn " COLOR i10DE ";PRINT 
"tt iO-3)- CHANGE COLOR" 
1080 PRINT "SELECT - INCREASE HUE":PRI 
NT "OPTION - INCREASE INTENSITY':PRINT 

"D - DRAW MODE" 
1090 POSITION 16,19:PRINT " EXPAND ":PRI 
NT "STICK - HOVE ";CHR$(25)j"D 

- DRAW MODE" 

1100 PRINT "BUTTON - PLOT ":CHR$(25) 
;"8 (0-3)- CHANGE COLOR"; 
1110 PRINT :PCSITION S.23:PRIMT "HIT A 
NY KEY TO RETURN"; 
1120 IF PEEK(764)=255 THEN 1120 



U30 POKE 106,PEEK(10t:it32:FOKE 764,25 
5:GRAPH!CS 56:SCiSUB lOlOiBOTD 140 

Locate command. 

1140 T=B-B0:E=Bt80!X=USR(1536,C,0,XP) 

1150 IF T<DL+282 THEN T=T+40:G0TQ 1150 

1160 IF E>DLt7961 THEN E=E-40:60T0 116 



1170 FOR Y=T TO E STEP 40:3«(iy-T)/40+ 

!)=CHR*(PEEK.(Y)):POKE Y,X:NEST ViPOKE 

B.astc 

1180 FOR V=T TO E STEP 40:P0|;E Y,ftSC(S 
«((Y-T)/40+1)):NE:<T V 
1190 IF PEEKi764)=255 THEN 1170 
1200 POKE 764,255:8010 140 

Store color registers (in C1-C4). 

1210 C1=PEEK(70SI:C2=PEEK(709):C3=PEEK 
(710)!C4=PEEK(712);RETURN 

Return color values to color 
registers. 

1220 POKE 708,Cl!pQKE 709,C2:P0KE 710, 
C3:P0KE 712,C4;RETURN 





STOMP jaStWf, 



^tw ^tf*k %.'*^' %^'*i '»**"* ^*'\ 



%mv ••»* TABLE 

For ATARI® DRAW 7 + 



(Modified Parameters: 

Line count = 5, byte count = 300) 





STOMP 










STOMP 




LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


20 - 50 


TW 


301 




630 - 


670 


FG 


226 


60 - 100 


06 


389 




680 - 


720 


E2 


273 


110 - 150 


m 


281 




730 - 


748 


LF 


146 


152 - 162 


I« 


124 




750 - 


760 


SP 


95 


166 - 250 


QV 


155 




830 - 


870 


JJ 


203 


252 - 280 


AY 


212 




880 - 


900 


LX 


236 


290 - 330 


QC 


202 




910 - 


950 


AD 


175 


340 - 380 


VB 


159 




960 - 


1000 


LT 


203 


390 - 430 


ZL 


301 




1010 - 


1050 


ST 


357 


440 - 480 


BK 


208 




1060 - 


1090 


LP 


368 


490 - 530 


);n 


95 




1100 - 


1140 


KV 


241 


540 - 580 


ID 


330 




1150 - 


\m 


ZY 


218 


585 - 620 


IV 


334 


-\^\^^ 


1200 - 
lW 7 + , 


1220 


EG 


139 
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by Peter J. Favaro 

PIx is a modular graphics design tool for an Atari 400/800/1200 with 
one disk drive and a Joystick. 

While many graphics utihties allow you to draw your own pictures, Pix has 
"libraries" of pictures. Those who are not skilled artistically can create in- 
tricate designs by assembling pre-drawn elements into a larger picture. Each 
module is designed for a slightly different application, and three are included 
with this issue. The first, called The Landscaper, is an educational aid for 
children as young as three, who are just learning the initial consonant sounds. 
The Adventure Screen Maker creates graphics screens, which can be used in ar- 
cade games in general, but is best suited for adventures. The third module 
creates art deco title screens and designs for your software. 

All the Pix screens use the Atari character graphics modes with modified 
character fonts. I created the fonts using the DataSoft Graphic Generator'^" 
utility (with their permission). It is one of the finest graphics utilities available 
for the Atari 400/800 systems . 



Sample Butterfly 

After the Pix title screen disappears you can choose among several menu op- 
tions. I have included samples to show what Pix can do, so select menu option 
four: Load a Picture. A program called READER. PIX loads, which reads pic- 
ture files and displays them on the screen. The first prompt is INPUT PIC- 
TURE NAME. The reply is D:BFLY.PIC, which loads a picture I drew with 
the Landscaper educational module. Do not include the usual quotes around 
any command within Pix or the program will crash. Typing only BFLY.PIC 
also crashes the program, so be careful. 

The next prompt, INPUT FONT, requests the font that you wish to use. In 
this case the proper response is D:EDGAME.FNT. After you have seen this 
picture get back to the title page by typing RUN "D:TITLE" or by typing 
RUN "DiREADER.PIX". When you have returned to the Reader Program 
type D:DECO.PIC to the first prompt and D:DEC01.FNT to the second. 
To see the adventure screen, get into the Reader Program and type D:AD- 
VENT.PIC to the first prompt and D:ADVENT.FNT to the second. All the 
Pix fonts end with the file name extension .FNT and all of the Pix sample pic- 
tures end with the file name extension .PIC. 

You can change the colors you see on your screen. Line 5 of the Reader Pro- 
gram contains the GRAPHICS and SETCOLOR statements. If you don't know 
how to change the colors in the Atari text modes, this documentation provides a 
quick review at the end. 

V . _^ ^ 



Creating PIXures 

To make a picture using the Pix modules, run the title program and choose 
Title Page Maker. The program asks you to name the picture you will be work- 
ing on this session. Let's call the picture SAMPLE. In reponse to the prompt, 
type D:SAMPLE and press RETURN. Pix loads the appropriate font into 
memory via a machine language subroutine. The screen goes blank for a few 
seconds and then a border surrounds the screen. 

Next a butterfly-shaped cursor appears at the upper left hand corner of the 
screen. Move it to the right with your joystick (plugged into port 1) and 
become familiar with its movements on the screen. Each move represents a 
space where you can place a letter or picture. Move the butterfly toward the 
middle of the screen and hit the trigger, locking the butterfly into position. 
Now go to the keyboard and type the letter Q, which appears on the screen in 
the butterfly's position, leaving the butterfly free to move again. To erase the 
Q, position the butterfly over it and hit the space bar. 

When manipulating the butterfly, be careful when you hit the trigger. Press- 
ing it accidentally locks the butterfly on the screen. If this happens on top of a 
letter you do not want erased, simply retype the letter and the butterfly will 
move on. If the butterfly gets stuck on a blank space, just press the space bar 
to free it up. 

Now experiment with the keyboard. All the letters and numbers appear in an 
art deco style, and I have provided borders and flowers in that style to enhance 
your title page as well. The documentation contains a description of what is 
under each key. A copy of this information tacked near your computer helps 
make things easier for future sessions. 

• To start a new screen, type CTRL-C for clear. This erases the present pic- 
ture from memory. 

• To change the background shade, type CTRL-B. 

• To change the color of the upper case letters, type CTRL-L. 

Note: You must press the joystick trigger, locking the butterfly, before you 
type any of these commands. 

Other color changes result from the various Atari text graphics modes com- 
mands. If you hit the trigger and then the Caps Lowr key, the letters print in 
another color. The trigger, and the Atari logo key in upper case, provide 
another color. Finally, the trigger and Atari logo key, then the trigger and the 
lower case key, produce still another color. In all, Pix allows you to draw 
screens in five colors, four for the text and one for the background. 



Saving PIXures 

Now that you've created the title page for your (soon to be) award-winning 
program, you'll want to save it. Make sure neither the lower case key nor the 
Atari logo key is toggled. Now press the trigger and CTRL-K. Your title page 
turns into normal Atari text and the computer appears to stall for about seven^ 
seconds. The disk drive light glows while the program saves your picture^ 
under the name you gave it at the start of the session. 

The extremely compact disk file for the picture uses only four or five^ 
sectors, and the technique is simple: The program turns the screen in- 
to one long string and stores it in a text file. When you load th^ y^l 
stored picture from disk, the Reader Program converts the string .^L.Vj 
from the file and prints it as a picture on the screen. 

_XSi 

■PIX- 

SoftSide Selections #45 15 





SoftSide Selections ms 16 
PIX V 



To see your picture, load the Reader Program and, in 
response to the prompts, type your picture name (D:SAMPLE in 
this case) for the first prompt, and then type D:DEC01.FNT to the 
'second prompt. 

Because Pix does not store any color information, it reverts to the 
''default colors when you reload a picture. Now let's find out how to change 
them. In the text modes under Atari BASIC, the SETCOLOR statement con- 
trols the colors of the characters printed. Color register zero controls the upper 
case letters, numbers and special characters. To change the color of the upper 
case letters to orange, the proper command is SETCOLOR 0,15,8. The fifteen 
refers to the color orange and the eight sets the luminance at a medium shade. 
(Refer to the appropriate Atari manuals for color combination charts.) The 
number two color register controls the upper-case inverse letters. The number 
one color register controls the normal lower case characters, and the number 
three color register controls the lower case, inverse colors. The number four 
color register sets the background color register. If you wish to change these 
values in either the Reader Program or the main program, change Une five ac- 
cordingly, but do not change the GRAPHICS 17 command, only the SET- 
COLOR commands. 



Kid PIX 

The Landscaper program is the first of several modules intended to teach 
young children the beginning consonant sounds. Parents of young children 
can spend many fun-filled hours teaching them computer skills and word 
sounds while allowing them to exercise their creativity. The Landscaper pro- 
gram is slightly different from the other two modules because what is on the 
keyboard and what is printed on the screen do not always correspond. Load 
the Landscaper program and define your picture name. As you and your child 
explore the keyboard, emphasize the letter sounds by saying, T is for tree, C is 
for cloud, and so on. See the reference chart for the full command set. Future 
Pix modules for young children will include animal mix-ups, farm scenes and 
more environment themes. 



PIX Adventurer 

One of the fringe benefits of Pix is its stinginess with memory. One Pix pic- 
ture takes up a mere 674 bytes in GRAPHICS 1 and a mere 424 bytes in 
GRAPHICS 2, so a disk can store about 150 PIXures. Suppose each one of 
those pictures were a different level of a maze or a different scene in an adven- 
ture. Using your Pix adventure maker, you're not too far away from designing 
really complex adventure games. Briefly, you can use page-flipping techniques 
or read in one screen at a time from the disk, or both. In a future article, I will 
explain in greater detail how to accomplish it. Using the Pix adventure scene 
creator and the predefined characters for transportation, shelter, protection, 
food and survival, you can lay out an endless variety of fantasy lands and 
adventures. A complete list of characters is in the Quick Reference section. 
Note that CTRL-K is the command which stores these pictures. 

Future Pix modules will include a music processing system which reads 
music as if it were text, more graphics utilities and fonts, and several educa- 
tional activities. The latter are my favorite because they let children exercise 
their creativity without needing sophisticated fine motor skills or artistic ability. 



PIX Quick Reference Chart 

The Landscaper Module 

C — Cloud 

D — Darker 

F — Flower 

G — Grass 

K — Keep, or save to disk 



L — Lighter 
M — Mushroom 
Q — Quit and stMt again 
S — Snail 
T — Tree 



Title Page Maker 

A — 

I 



Z, 1 — Same as what appears on the key except art deco style font 
Same character as border 
' — Quote marks 
# — Slanted lines 
$ — Little flower 

% — Border, one thick line, over one thin line (top border) 
& — Same as "% only right border 
' — Same as Vo only left border 
• — Same as "lo only bottom border 

All the keyboard symbols, such as parentheses, the hyphen, asterisk and 
equals symbol translate into their equivalents in the new font. However, the 
following generate special graphics characters: 



[- 



/? : ;- 

CTRL-B — 
CTRL-L — 
CTRL K — 



Upper left side of small flowery frame 
Lower-left side of small flowery frame 
Upper-right side of small flowery frame 
Lower-right side of small flowery frame 
Four parts of a philodendron vine 
Change background shade 
Change upper case letter color 
Save to disk 
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Adventure Screen Generator 










A — 


Tree 






— 


Jet 


B- 


Grass 






P — 


Dollar sign (money) 


C- 


Wave/Water 




Q, R- 


Shelter (space) 


D, E — 


Mountain 






S — 


Tie fighter 


F, G — 


Bridge 






T — 


Musical note 


H — 


Snow/Dirt/Magic Powder 




U- 


Race car left 


I — 


Boulder 






V- 


Race car right 


J- 


Horizontal road 






w- 


Moon rover 


K — 


F sign (food/fuel) 






X — 


Regular car left 


L- 


Old boat 






Y — 


Regular car right 


M- 


Skull and crossbones (danger) 




Z — 


Rocket/missile 


N — 


Question mark (take a chance) 




, — 


Flower 





Mushroom 


CTRL-B - 


- change background shade 


i- 


Lance/Sword 


CTRL-L - 


- change 


upper-case color 


]- 


Shield 


CTRL-C - 


- clear and start again 


/ — 


Laser/Gun 


CTRL-K - 


- keep and save to disk 


? — 


Magic wand 










Key 








» 


Potion 








V2 - 


Building 








* 


Space hut 








± — 


Barrier/brick wall 











Mean creature 








= — 


Friendly computer 








+ — 


Castle 











Diamond 








I _ 


Symbol for man 








ft — 


Woman 








$- 


Arrow pointing up 








% - 


Down pointing arrow 








&- 


Right arrow 








) 


Left arrow 








• — 


Sun shining 








(- 


Crater 








)- 


Vertical road 








< — 


Race car up 











Notes: 

After saving to disk, press Reset to clear Player/Missile garbage. Toggling 
the lower case or Atari logo key will change character color on the Title Page 
Maker and Adventure Screen Maker. 
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by Dale Thorns 



Sharkey is an arcade-type game for an Atari® with 24K RAM (32K 
with disl(), and a joysticlt. 

Looking at the world from the shark's point of view, you move through a 
coral reef, eating rare tropical fish as you go. The white fish are worth twenty 
points each, but avoid the dark green fish which inhabit the center of the 
screen — they are poisonous. In the same area, you encounter spears, shot at 
random intervals. At the bottom of the screen, in the seaweed, you see eels, 
which can also spell your untimely demise. 

While watching out for all of those dangers, be careful not to bump into any 
coral. If you do, you will be sent back to the box in the center of the screen. 
Keep an eye on the clock. If the time expires, so do you. The number at the 
right of the score display is the number of sharks you have left in addition to 
the one in play. 



Program Operation 

PMBLANK is the machine language Vertical Blank Interrupt (VBI) routine 
which handles the movement of the shark, the spears and the eels. VBIs occur 
every sixtieth of a second, and instruct the 6502 microprocessor to stop the 
program it is executing and jump to the VBI processing routine located in the 
Operating System (OS). This routine increments the POKEY timers, interprets 
controller input, and copies data from shadow registers in memory to the 
hardware registers. If the OS routine has not been instructed to jump to a user 
supplied routine, the 6502 picks up where it left off in the main program, 
oblivious to the fact that a VBI occurred. If a user routine such as PMBLANK 
is used, the 6502 returns to the main program after the routine has finished ex- 
ecuting. Putting the Player graphics movement routines into the VBI sequence 
allows them to run simultaneously with the BASIC program. 

The first part of PMBLANK operates as follows: The BASIC program 
reads the joystick and POKEs the value into memory location 1789 ($06FD 
Hex). PMBLANK looks at this location and moves the shark in the indicated 
direction. Six of the eight possible joystick positions cause the shark image to 
change. Player is modified with the appropriate bytes contained in the Player 
image area which is located at page PM + 5. The other two directions, up and 
down, use the existing shark image. PMBLANK checks location 1787 ($06FB) 
to see if the joystick button is pressed. If it is, then PMBLANK will move the 
shark once every VBI; otherwise the shark moves once every two VBIs. 

The second part of PMBLANK moves the eels and spears. The BASIC pro- 
gram POKEs the chosen number of the movements into location 1785 ($06F9) 
for spears or location 1781 ($06F5) for eels. When PMBLANK sees that a 
number has been POKEd into the eels' location, it positions Player I at the left 

» . > 
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edge of the screen and moves it two positions to the right every VBI, and 
decrements location 1781. When this value reaches 0, Player 1 is removed from 
the screen. 

The routine for spear movement is similar with a few exceptions: Players 2 
and 3 are positioned inside the central box on the left and right edges. Spears 
do not traverse the entire screen; they stop at the opposite end of the central 
box. Spears are moved three positions every VBI. 



Variables 



A,B: Used for loops, etc. 
C: Dummy variable used for call- 
ing machine language routines. 
CMX: Maximum value of 
COUNT. 

COLl: Used for collision detec- 
tion. 

COUNT: Number of times the 
main loop has been run. 
DLIST: Address of the beginning 
of the Display List. 
E$: Contains a machine language 
routine to zero out PMG RAM. 
EMX: Number of times 
PMBLANK should move eels. 
FISH: Number of white fish the 
shark has eaten. 
HO: Horizonal position of the 
shark computed to a character 
position. 

MAX: Number of white fish at the 
start of each screen. 
PM: Starting address of PMG 



RAM (4.25K or 17 pages below 

RAMTOP). 

SCORE: Player's total score. 

SCREEN: Number of current 

screen (used as a difficulty level). 

SHARK: Number of remaining 

sharks excluding the one in play. 

SMX; Number of times 

PMBLANK should move the 

spears. 

START: Starting address of 

redefined character set in RAM. 

TO.Tl: Used to keep track of the 

game timer. 

TIME: Amount of time at the start 

of each screen. 

VO: Vertical position of the shark 

computed to a character position. 

X,Y,Z: Used for reading in the 

character set data. 

XFR$: Contains a machine 

language routine to download the 

ROM character set. 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

ss Atari BASIC SS 

SS 'Sharkey' SS 

SS Author: Dale Thois SS 

SS Copyright © 1983 SS 

SS SoftSide Publications, Inc SS 

SS SS 
SS SS SS SS SS SS SS SS SS SS SS 

If you don't wish to type this program, It Is 
available on Issua #45 SoftSide DV and CV. 

Initialization. 

10 BOSUB WOOiGOSUB 10000:60SU8 11000 
20 GOSUB 14000 :GOSUB 20000 
30 GOSUB 2 1000: GOSUB 24000: GOSUB 12000 
40 SOSUB 25000: GOSUB 23000 



Main game routine. 

Clear collision register and POKE 

the joystick position into a page six 

memory location so that PMBLANK 

can move the shark. 

100 POKE 53278,1: POKE 1789, STICK 10) 

Start movement of spears and eels 

by POKEing a value Into page six 

for PMBLANK. POKE 1781, EMX tells 

PMBLANK to move the eels (Player 

1) 83 times (all the way across the 

screen). POKE 1785,SMX moves the 

spears (Players 2 and 3) 31 steps 

across the central playfleld. 

110 CaUNT=CQUNT+l 

120 IF CQUNT=15 THEN POKE 1781, ENX 

130 IF C0UNT=60 THEN POKE 1785, SNX 

140 IF C0UNT>C(1X THEN COUNT=0 



Tell PMBLANK to double the shark 
speed If the trigger Is pressed. 

150 POKE 1737,STRIG((i) 
Shark wrap around routine. 

IflO IF PEEK(17?0)>204 THEN POKE 1790,4 

5 

170 IF PEEK(1790K'14 THEN POKE 1790,20 

Check for collision. 

180 IF PEEK (53252) >0 THEN GOSUB 5000 
190 IF PEEK(53240)Ki THEN SOSUB 6000 
Keep track of game time. 
200 T0=T0+1 

210 IF T0=15 THEN T0=0:T!=T1-1:P0KE 65 
6,0:P0KE 657,32:? " ":POKE 656,0:P0KE 
657,32:PRINT Tl; 
220 IF T1=0 THEN SOSUB hOOO 
Clear the "Attract Mode" counter 
and return to beginning. 
230 POKE 77,0:6aT0 100 

Collision Routines. 

If shark has collided with the 
piayfieid graphics, GOSUB the ap- 
propriate routine. 

5000 C0L1=PEEK(53252j:IF C0L!>=8 THEN 

COLl=L:OLl-a 

5010 IF CCL1>=4 THEN COL 1=C0L 1-4 -.GOSUB 

5100 
5020 IF C0L1>=2 THEN C0L1=C0L!-2:I50SUB 

5300 
5030 IF C0L1=1 THEN SOSUB 5500 
5040 POKE 53279,1: RETURN 
Collision with white fish. 

Convert the shark's position Into a 
character position. Check that posi- 
tion for a white fish. If it's there, 
erase It, and start the beep sound. 

5100 H0=(PEEKfl790)-4B)/8:VC=(P£EK(179 
11-32), 'S 

5110 LOCATE H0,V0,A:IF AO202 THEN RET 
URN 

5120 SOUND 0,25,10,10:P0BIT10N H0,V0:? 
#6;" " 

Add 20 points to SCORE, check for 
end of play on current screen, and 
return If the screen is not clear. 

5130 SC0RE=SC0RE+20:P0KE 656,0:POKE i5 
7,6:? SCORE 



5140 FISH=FISH+1:IF FISH<t1AX THEN SOUN 
D 0,0,0,0:RETURN 

Erase shark, play end of screen 
music, add bonus score for time re- 
maining on the clock, and GOSUB 
13000 to set up the next screen. 

5150 POKE 17S9,15:P0KE 1788,64:S0UND 

,0,0,0 

5160 POKE 53278, 1:S0UND 0,0,0,0 

5170 GOSUB 51B0:GOSUB 13000:RETURN 

5180 SOUND l,121,iO,12:60SUB 5210:S0UN 

D 1,96,10,12:GOSUB 5210:SQUND 1,108,10 

,12:G0SUB 5210 

5190 SOUND 1,91,I0,12:6QSUB 5210:S0UN1) 

1,96,10,12:G0SUE 5210:S0UND 1,81,10,1 
2:G0SUB 5210 

5200 SOUND 1,60,10,12:F0R A=0 TO 80:NE 
IT A:SOUND 1,0,0,0:GOSUB 5210:GOTO 522 


5210 FOR fl=0 TO 60: NEXT ArSOUND 0,0,0, 
U:FOR A=0 TO 10:NEn A:RETURN 
5220 SC0RE=:BC0RE<-10»T1:P0KE 656,0:P0KE 

657,6:? SCQRE:POKE 656,0:PDKE 657,32; 
? " ": RETURN 
Collision with walls. 

Stop shark's movement. 

5300 POKE 1739,15 

Play coral collision music. 

5310 POKE 709, 80: FOR A=25 TO 60: SOUND 
0,A,10,8:NEXT A:POKE 709,9A:F0R A=42 T 
77;30UND 0,ft, 10,8:NEXT A 
5320 POKE 709, 30: FOR A=59 TO 92: SOUND 
0,A,10,8:N£XT A:POKE 709,84:F0R A=0 TO 
15:NEXT A;30UND 0,0,0,0 

Erase shark and reset Its position to 
the central box. 

5330 POKE 1783,64:F0R A=0 TO 100:NEXT 
A;POKE 1790,124:P0KE 1791, !05:P0KE 178 



Play more shark music. 

5340 SOUND 0,50, 10,8:F0R A=0 TO 30;NEX 
T A:30UND 0,37, 10,8:FQR A=0 TO 30:NEXT 

A:SOUND 0,24,10,8:FOR A=0 TO 30 
5345 NEXT A:SOUND 0,0,0,0 
5350 FOR A=0 TO 100:NEXT ft 
5360 FOR A=0 TO 2:S0UND 0, 15,10, 15:F0R 

B=0 TO 35:NEXT B:SOUND 0,0,0,0:FOR B= 
TO 35:NEXT B:NEXT ft 
5370 RETURN 
SHARKEY ^ 
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Collisions with dark green fish and 
seaweed. 

If the shark's vertical position Is 
less than 160 (above the seaweed), 
It collides with a poisonous fish. 

5500 IF PEEKdTnXliO THEN GDSUB 6000 

: RETURN 

5510 RETURN 

Shark death routine. 

Stop the shark's motion and turn It 
upside down. 

6000 POKE 1789,15:P0KE 1783,0 

Play the dead shark music. 

6010 BOUND 0,45,10,8!F0R ft=0 TO lOOrNE 

n A:SDUND O.O.O.OsSOUND 0,47, I0,8:FOR 

A=0 TO 100:NEXT iSiSQUND 0,0,0,0 
6020 SOUND 0,50,10,'B:FOR A=0 TO 150: NE 
XT A:SOUND 0,0,0,0:SOUND 0,53,10,8!F0R 

A=0 TO 50:NEXI A:SOUND 0,0,0,0 
6030 SOUND 0,50,10,8:FOR A=0 TO 100;NE 
n A:SDUND 0,0,0,0 
6040 FOR A=0 TO 200:NEXT A 
Move the shark to the top of the 
screen. 
6050 B=PEEK(1791>:F0R A=B TO 32 STEP - 

hSOUND 0,188-A,10,2:P0KE 1791,A:NEXT 

A 

If any sharks remain, return to main 

routine. 

AOiO SOUND 0,0,0,0:SHARK=SHARK-1 

6070 IF SHARK>-1 THEN T1=TINE;P0KE 656 

,0:POKE 657,18:? SHARK; RETURN 

Set up a new game. 

6080 POKE 1788,44:P0P :FOR A=0 TO 250: 

NEXT A 

6090 POKE 656,0:P0KE 657,23 

6100 ? "PUSH fire TO" 

6110 POKE 656,1:P0KE 657,4:? " START QV 

JR" 

6120 IF 3TR16(0)<>0 THEN 6120 

6130 SCREEN=1:SHARK=2:SC0RE=0:'' CHRtd 

25):P0KE 656,1:P0KE 657,0:? " one Kone 

nt please" 

6145 GOSUB 7000 

6150 60T0 20 

Preliminary game initialization. 

Call a machine language routine to 
zero out the Player RAM area. 

7000 FOR A=0 TO 3:C=USR(ADR(E$), !Pi1+13 
, +A)»2561:NEXT A:RETURN 
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Reserve 4.25K of RAM and set up 
the title display. 

9000 RESTORE :DI« Et(19):FQR X=l TO 19 

:READ D:E$(X)=CHR$1D):N£XT X;PI1=PEEK(1 

06)-17:P0KE 106,PH:GOSUB 7000 

9005 DATA 104,104,133,213,104,133,212, 

169,0,160,0,145,212,200,192,255,208,24 

9,96 

9010 GRAPHICS 1:DLIST=PEEK(560)+PEEKI5 

61)«256 

9020 POKE DL1ST+10,7:POK.E DLIST+17,2:P 

OKE 71O,l:P0KE 752,1 

9030 POSITION 7,5;'' «6;"5harkey":P0SIT 

ION 0,12:? tt6; "Written and produced liy 

-"iPOSITION 6,15:? »6;"DALE THOMS" 

9040 ? CHR$ll25);CHRl!12?):"Plea5e wai 

t 17 seconds for":? CHR*(127);"initial 

ization." 

9050 RETURN 

POKE in the redefined character set 

using Alan J. Zett's machine 

language routines. 

10000 START=(PEEK(106)+1)»256 

10010 DIH XFR$(37):F0R X=l TO 37:READ 

D:XFR*(:)[)=CHR*iD):NEXT X 

10020 i=USR(ADR(XFRt)) 

10030 READ X:IF X=-l THEN RETURN 

10040 FOR Y=0 TO 7:READ 2:P0KE X+Y+STA 

RT,Z:NEXT ViGOTO 10030 

10050 DATA 104,169,0,133,203,133,205,1 

69,224,133,206,145,106,24,105,1,133,20 

4,0,177,205,145,203,200,208,249,230 

10060 DATA 204,230,206,165,206,201,228 

,208,237,96 

10100 DATA 512,0,0,0,0,0,0,0,0 

10101 DATA 576,255,255,7,14,28,56,112, 
224 

10102 DATA 592,255,255,224,112,56,28,1 
4,7 

10103 DATA 776,0,64,192,193,199,108,60 
,48 

10104 DATA 784,99,51,51,31,28,56,48,48 

10105 DATA 792,7,206,204,110,198,198,1 
03,99 

10106 DATA 800,27,155,179,182,182,230, 
119,119 

10107 DATA 808,24,50,179,227,97,97,59, 
27 



lOlOB DATfi 816,110,108,204,198,204,92, 
124,192 

10109 DATA 824, 195,246,54,99, 195, 199, i 
10,110 

10110 DATA 832, 153, 141,205,206, 198,102 
,102,60 

1011! DATA 840,145,219,206,108,204,201 
,153,153 

10112 DATA 848,0,0,0,88,60,88,0,0 

10113 DATA 528,7,7,3,7,7,3,7,7 

10114 DATA 536,7,7,3,7,7,223,255,255 

10115 DATA 552,255,255,223,7,7,3,7,7 

10116 DATA 584,0,0,0,0,7,15,15,15 

10117 DATA 600,15,15,15,7,0,0,0,0 

10118 DATA 608,240,240,240,224,0,0,0,0 



10119 DATA 616,^ 



255,219,0,0,0,0,0 



10120 DATA 624,0,0,0,0,0,219,255,255 

10121 DATA 632,0,0,0,0,224,240,240,240 

10122 DATA 648,255,255,251,224,224,192 
,224,224 

10123 DATA 688,224,224, 192,224,224, 192 
,224,224 

10124 DATA 720,224,224,192,224,224,251 

ICC occ _i 

POKE in the machine language 
PMBiJVNK routine. 

11000 POKE 559,62:P0KE 53277, 3:PQKE 54 

279,P«+9 

11010 POKE 704,72:P0KE 53248,100 

11020 FOR A=0 TO 21B:READ BiPOKE 1536+ 

A,B:NEn A 

UlOO DATA 173,251,6,201,0,240,20,173, 

250,6,201,0,208,8,169,1 

11110 DATA 141,250,6,24,144,87,169,0,1 

41,250,6,173,253,6,201,14 

11120 DATA 240,84,201,7,240,86,201,13, 

240,93,201,11,240,95.201,6 

11130 DATA 240,102,201,5,240,112,201.9 

,240, 122, 201, 10, 240, 53, 160,0 

11140 DATA 173,252,6,133,203,173,255,6 

,201,188,208,6,206,255,0,173 

11150 DATA 255,6,133,205,169,0,145,205 

,136,177,203,145,205,192,0,208 

11160 DATA 247,198,205,169,0,145,205,1 

73,254,6,141,0,208,76,98.228 

11170 DATA 24,144,203,24,144,76,206,25 

5,6,24,144,194,238,254,6,169 

11180 DATA 8,141,252,6,24,144,183,238, 

255,6,24,144,177,206,254,6 



11190 DATA 169,24,141,252,6,24,144,166 

,206,255,6,238,254,6,169,32 

11200 DATA 141.252,6,24,144,152,233,25 

5,6,238,254,6,169,40,141,252 

11210 DATA 6,24,144,138,238,255,6,206, 

254,6,169,48,141,252,6,24 

11220 DATA 144,174,206,255,6,206,254,6 

,169,56,141,252,6,24,144,160 

11230 DATA 162,6,160,0,169,7,32,92,228 

,104,96 

11240 SCREEN=1:SHARK=2:SC0RE=0;RETURN 

Screen set-up routine. 

Print the game board and initialize 
some variables to the first level of 
difficulty values. 

12000 POSITION 0,0 

12005 REM IN LINES 12010-12180, LOWER 
CASE REPRESENTS CTRL CODES. 

12010 ? l6;"qaiiiMitffli«Miimiiiinffliii(iiiiiiiie"; 

12020 ? «6;"vJ^j[_J i_ ^ _J_ J_Jb"; 

12030 ? 16; "v io io inno io io b'; 

12040 ? «6;"vJI;lJi.'lJ);eqliklJI;lib"; 

12050 ? 16; "v _J JbvJ ± b"; 

12060 ? 46; "v innno iczo innno b"j 

12070 ? »6;"y kunBlikaBliksmil b"; 

12080 ? tt6;"v li J 1 ii b"; 

12090 ? 1(6; "v innnnnnnnnnnnc b"; 

12100 ? )t6j"vi bqiiMe quoiaev Jb"; 

12110 ? «6i"vibv J ibvib"; 

12120 ? (t6;"vibv _J_ ± J_ bvJ b"; 

12130 ? #6;"vi bvJ_ _J_ bv ib"; 

12140 ? »6;"v bv ± ibv b"; 

12150 ? U\"vl bvJ.ll J bvlb"; 

1Z160 ? #6;"vJJbv 1 J bvJJb"; 

12170 ? #6;"v bv innnnnno bv b"; 

12180 ? tt6;"vlkl kmuBstiinl kUb"; 

12165 REM LINES 12190-12200 DO NOT 
CONTAIN CTRL CODES. TYPE 
LOWER CASE AS NORMAL. 

12190 ? «6;" CJb gJlEGg CeJgJEJi"; 

12200 •' «6;"aeAdJfAHdFfJfidafaDAh°; 

12210 FI3H=0:MAX=59:TIME=100:CMX=150:E 

H)(=31:EMX=83 

Increase the difficulty level based 

on the value of SCREEN. 

12220 IF SCREEN<2 THEN 12990 

12230 POSITION 10,12:? ll6i"J":P0SITI0N 
13,12;? «6;"J":TI«E=90:C11X=120 
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12240 POSITION 0,5;? «6!CHR$(26);CHR$( 
14)!CHR*(14);:P0SITI0N 17,5:? «6;CHR$i 
14)iCHRt(14);CHR*(3l; 
12245 POSITION 0,6:? «6;CHR«(17);CHR$( 
13);C.HR$(13);:PDSITI0N 17.6:? »6;CHR$( 
13);CHR»(13);CHR$(5); 
12250 IF SCREEN<3 THEN 12990 
12260 fl=(PM+15)»256+!54:P0KE A,4:PaKE 
A+1,194:PQKE fl+2,127:P0K.E A+3,194:P0KE 
At4,4:TIH£=80 

12270 POSITION 9,0:? «6;CHR?(5)iCHR*il 
7);:P03ITI0N 9,1:? »fc;CHR$12) ;CHRt(22) 
!:P0SITI0N 9,2:? l)6!CHR1i(3)iCHRt(26); 
12280 IF SCREEN<4 THEN 12990 
12290 Tl(1E=70:Ct1X=100:A=(PH+14)«256+18 
6:PaKE A,96:P0KE Atl,147:P0K£ A+2,12 
12300 POSITION 0,10:'' «6;CHR$(26);CHR1 
(15):P0SITION 18,10:? t6;CHRI(9):CHRJ( 
3) 

12302 POSITION 0,11:? tt6;CHR*(17);CHR* 
(12):P0SITI0N 18,11:? »6;CHR*(11);CHR$ 
(5) 

12305 POSITION 2,13;? «6;CHR*I9);CHR$( 
3): POSITION 16,13;? i6;CHRt!26);CHRt(l 
5) 

12306 POSITION 2,14:? »6;CHR$(11);CHR? 
(5):P0SITI0N 16,14:? ♦6;CHRt(17);CHR$( 
12) 

12307 POSITION 0,16;? «6;CHR$(26)iCHR$ 
(15):P0SITI0N 18,16:? »6;CHRt!9);CHRt( 
3) 

12308 POSITION 0,17:? «6;CHR$(17>iCHR$ 
(12):P0S1TI0N 18,17:? »6iCHR*(ll);CHRt 
(5) 

12310 TII1E=60:CI1)I=70:P0SITI0N 11,10:? 

)I6;"J":POSITION 7,12:? (t6;M" 

12320 IF SCREEN<6 THEN 12990 

12330 TIME=50:CI1)(=i5:P0KE (PI1+9)«256t3 

1,232:P0KE (PI1+9) 1256+45,202: POKE (Pt1+ 

9)1256+78, 232:SH)!=23:Et1X=55 

Give the player three warning beeps 

before returning controi of the 

Sharif. 

12990 FOR fl=0 TO 2;S0UND 0,15,10,15:FO 

R 8=0 TO 15:NEn B:SOUND 0,0,0,0:FOR B 

=0 TO 25;NEU B:NEXT fi:T!=TIt1E; RETURN 



Reset the shark's position to the 
centrai box, increment the SCREEN 
variable, reset some variables, and 
call the screen set-up routine. 

13000 FOR fl=0 TO 200:NEn ft:POKE 1790, 
124:P0l;£ 1791,105:P0KE 1788,8 
13020 SCREEN=SCREEN+1:FISH=0:T0=0:S0SU 
B 12000 

13030 C0L1=0:RET0RN 
POKE spear and eel shapes into 
PMG RAM. 
14000 RESTORE 14030 

14010 FOR A=0 TO 4:READ B:POKE IPM+15! 
t25&+120+ft,B:NE>;T A 
14020 FOR A=0 TO 4:READ B;POKE (PM+16) 
»256+138tA,B:NEXT A 

14030 DATA 4,194,127,194,4,32,67,254,6 
7,32 

14040 A=iPH+14)t256+180:P0KE A,96:P0KE 
A+1,I47:P0KE A+2,12 
Initialize the page six locations used 
by PMBLANK. 
14050 RETURN 

20000 POKE 1790,124:P0KE 1791,105 
20010 POKE 17B9,0;P0KE 1788,8 
20020 POKE 1787,1:P0KE 1786,0 
20030 POKE 2O6,PM+13:P0KE 205,0;POK.E 2 
04,P«+5:PDKE 203,0 
20040 A=0 

20050 FOR A=0 TO 63: READ B:POKE (PM+5) 
«256+A,B:NEn A 
20060 RETURN 

20070 DATA 121,254,121,24,12,0.0,0 
20080 DATA 48,24, 158,127, 158, o',0,0 
20090 DATA 0,0,0,0,0,0,0,0 
20100 DATA 12,24,121,254,121,0,0,0 
20110 DATA 40,24,94,127,158,0,0,0 
20120 DATA 48,24,158,127,94,0,0,0 
20130 DATA 12,24,121,254,122,0,0,0 
20140 DATA 12,24,122,254,121,0,0,0 
Set up the colors for spears and 
eels, and POKE in the PMBLANK 
VBI routine. 

21000 P0K:E 705,156:POKE 706,56:P0KE 70 
7,56 

21010 POKE 1646,0;P0KE 1647,PI1+9 
21020 FOR A=0 TO 90:READ 6:P0KE (PHt9) 
»256tA,B:NEXT A 
21030 RETURN 

21040 DATA 173,249,6,201,0,208,19,141, 
2,208,141,3,208,169,77,141 



21050 DAIft 247, 6, lo9, 171, 141. 248, 6, 24, 
144,29, 174,247, 4,232,232, 234 
210i0 DhTA 232,142,247,6,142,2,208,174 
,248,6,202,202,202,234,142,248 
21070 DATA 6,142,3,208,206,249,6,173,2 
45,6,201,0,208,11,141,1 
210BO DATA 206,169,42,141,246,6,24,144 
,15,174,246,6,232,232,234,142 
21090 DATA 246,6,142,1,208,206,245,6,7 
6,93,223 

Set up the score board area. 
Change the text window to 
GRAPHICS 1 mode and create a 
Display List Interrupt to display up- 
percase text Instead of graphics 
symbols. 

23000 i)L!ST=PEEK(560)+256JPEEK(56l) 
23010 POKE DLIST+24,134:P0KE DLIST+25, 
70 

23020 POKE DLIST+28,6;P0KE DLIST+29,6: 
POKE DL13Tt30,6 

23030 FOR A=0 TO 17:READ B:POKE iPM+10 
)t256+A,B!NEn A STOMP 



23040 DATA 72,133, 72, 174, 24\2, 202, 202 

,141, 10, 212,142, 9, 212, 104, 170, 104, 64 

23050 POKE 512,0:P0KE 513,PH+10 

23060 POKE 54236,192 

Print headings In the text box. 

23070 ? CHRitl25) 

23080 POKE 656,0: POKE 657,0:? "score": 

POKE 656,0:P0KE 657,2?:? "tinie»:PDKE 6 

56,0:P0KE 657,18:? SHARK 

23090 RETURN 

Initialize the rest of the colors, and 

switch the character set pointer 

from the old ROM set to the redefined 

RAM set. 

24000 POKE 70g,ia2:P0KE 7O9,S4:P0KE 71 

0,110;POKE 711,214:POKE 712,lfc0:P0KE 6 

23,8 

24010 POKE DLIST+1U,6;P0KE DLlST+17,6: 

? 116; CHR1U25): POKE 756, START/256+2 

24020 RETURN 

Initialize the PMBUVNK VBi routine. 

25000 C=USR( 1744): RETURN 
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(Modified Parameters: 




For ATAR 


® SHARKEY 


Line count = 5, 


byte count = 300) 














STOMP 






STOMP 




LINES 




CODE 


LENGTH 


LINES 


CODE 


LENGTH 


10 - 


100 


CI 


145 


U020 - 


11 130 


BQ 


287 


no - 


150 


Nfl 


119 


11140 - 


11180 


VL 


320 


160 - 


200 


LA 


140 


11190 - 


11230 


NR 


295 


210 - 


5010 


PA 


207 


11240 - 


12030 


XI 


148 


5020 - 


5110 


SR 


li.<6 


12040 - 


12080 


KY 


160 


5120 - 


5160 


EU 


203 


12090 - 


12130 


JE 


160 


5170 - 


5210 


PJ 


320 


12140 - 


12130 


!R 


160 


5220 - 


5330 


SK 


343 


12190 - 


12230 


UR 


201 


5340 - 


5370 


TT 


223 


12240 - 


12270 


6.K 


398 


5500 - 


6020 


m 


265 


12280 - 


12305 


DH 


314 


6030 - 


6070 


JB 


228 


12306 - 


12320 


NL 


307 


6080 - 


6120 


HS 


142 


12330 - 


13030 


CC 


317 


6130 - 


9000 


JO 


254 


14000 - 


14040 


QK 


211 


9005 - 


7040 


CH 


359 


'4050 - 


20030 


ZC 


144 


9050 - 


10030 


!T 


141 


20040 - 


20080 


ET 


129 


10040 - 


1010! 


YD 


275 


20090 - 


20130 


m 


150 


10102 - 


10106 


UP 


198 


20140 - 


21030 


OZ 


156 


10107 - 


10111 


EU 


210 


21040 - 


21080 


ZB 


316 


10112 - 


10116 


YK 


158 


21090 - 


23030 


Hrl 


211 


10117 - 


10121 


KV 


17! 


23040 - 


23080 


RR 


2^:3 


10122 - 


11010 


LZ 


206 
SHAI 


23090 - 
tKEY 


25000 


NB 


136 
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Issue 45 Adventure: 
Jack The Ripper II 

Did the evil Ripper 
ever really die? You 
are an inspector at 
Scotland yard. Can you 
stop the Ripper before 
he stril<es again? 



SoftSide Adventure Series ^^V ^^V 



What would you say to a program that asks, "What do you want to do?" 
Well, you might say, "GET APPLE" or "KILL SPIDER", because that's 
how the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles and thrills. Your first task — survival — can be daunting until you 



1 



figure out the right way to do it. Each adventure sets a fundamental goal 
before you. You might have to rescue a princess, or depose a wicked ruler. 
Along the way, dozens of subsidiary tasks beset you. You'll have to be in- 
genious and persevering, and your rewards will be great. 

To "win" a fantasy/adventure game, you must solve the author's devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Express your wishes with one- or two-word commands, like "LOOK", 
"NE" (for northeast) , or ' 'GET FROG" . Use " I' ' to get an inventory of your 
possessions. The introduction to each Adventure explains this more fully. 

Winning an Adventure is hard enough without the additional requirement 
that you do it all at once. In recognition of this, the Disk Version of the Soft- 
Side Adventure Series now features two new commands: "SAVE GAME" and 
"LOAD GAME". 

To start up the Adventure, just run the program called "INTRO", 
"INTRO/BAS", or "INTRO. BAS" on your disk, or select the Adventure 
from the DV menu. On cassette, the INTRO program is the one just before the 
Adventure. 

The Adventure runs in any Atari® with at least 32K RAM (40K disk). 




Here are the encrypted hints for Mad House, 
the Adventure in Issue 44. 



Silver dollar: WL MLG KFG RM EVMWRMT NZXSRMV FMGRO TREVM 

GL TVLITV DZHSRMTGLM LI UORKKVW YB OFXPB XSFXPB. 

Top hat: WL MLG TREV GL NZTRXRZM FMGRO GIRXPB WRXPB 

SZH YVVM WVZOG ORGS. 

Tricky Dicky: WIVHH FK ORPV ZYV ORMXLOM. 

Shakespeare: TREV SRN Z ULFI-OVZU XOLEVI. 

Bunny: ORPVH XOLEVI. 

To get into the garden: HLFMW XZM YIVZP TOZHH. 

To pass a day: HOVVK LM BLFI YFMP. 

To escape: 

A. VMGVI OZFMWIB ILLN LM KRXP FK WZB. 

B. SZEV Z ORG UOZHSORTSG. 

C. SRWV RM OZFMWIB YZT. 

D. OLLP OZFMWIB; GSVM TVG ZMW DVZI GSV FMRULIN. 

E. OVZEV YZT ZUGVI GIFXP HGLKH. 

F. VCRG WELL 



SoftSide Selections #45 



27 



SoftSide Selections #45 





Tired of Typing? 



• Use And Enjoy These Programs Right 
Away! 

• Avoid Worry About Typos! 

• Get Additional Programs to Enjoy 
Without Typing. 




Order this Issue's Programs on Disk or Cassette 



Send the coupon below to: 

SoftSide Publications, Inc. 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 




^^^/ _a^j^/ 



S^ff^J p Selections 

ORDER THIS ISSUE'S MEDIA 

Having difficulty finding the time to input the programs 
from this issue of SoflSide Selections'* Don t despair — the 
cas.sette and disk versions are still available' And, eacli DV 

(disk version) contains an iiddidonal program 

D #45 DV $16.00 n #45 CV $8.00 

Disk Only: D Apple* D IBM* PC 

Di»k or Catsette: D Atari® D TRS-60® Mod, I D TRS-80® Mod. Ill 



Name 

Address 

City/State 

D Check or Money Order 

D MasterCard D VISA 

Name of Cardholder 

MC#/VISA# 

Exp. Date / / Signature. 



-Zip- 



A^satsae. 

_5clectionj 




Prices subject to change without notice. Apple*. IBM®, Atari* and TRS-flO* are registered trademarks of Apple Computer, Inc., 
International Business Machines, Inc., Warner Communications, and Tandy Corporation respectively. 
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General Information 

These are the standard procedures for the programs published by 
SoftSide Publications, Inc. Sometimes, a particular program does not 
lend itself to these procedures. Always read the specific instructions 
accompanying a program. They will instruct you If there are any 
variances from the following procedures. Also, back issues of Soft- 
Side Magazine may differ in some details. 

^*!^^ ^.,^ STOMP ^viiir// ,, 



'^fJiuv •»* TABLE %»ittw •«»• 



STOMP Tables 

At the conclusion of each SoftSide listing, we include a STOMP 
Table. STOMP for the Apple, Atari, IBM PC and TRS-80 appeared in 
Issue #45. STOMP supersedes SWAT as SoftSlde's standard debug- 
ging tool to help those who type BASIC programs from the pages of 
SoftSide Seiections. If you don't have STOMP, we'll send you a free 
reprint. Send a business-sized, self-addressed, stamped envelope to: 

SoftSide Publications, Inc. 
Department STOMP 
10 Northern Blvd. 
Northwood Executive Park 
Amherst, NH 03031 

Be sure to tell us that you have an Atari computer. 



Magnetic Media 

Disks do not carry the DOS. SYS and DUP.SYS files, and are not 
"bootable." In order to use your SoftSide DV, put a disk with DOS on 
it, such as a copy of your DOS 2 master disk, into your disk drive, and 
start up your Atari. The BASIC cartridge must be inserted before you 
do this. When you see the word READY, insert the SoftSide Seiections 
disk, and type this command: 

RUN "D:COVER" 

A menu program will then run. 

Our disks are in DOS 2.0S format. They should not be used with 
DOS 1. 

Tapes CLOAD in the normai manner, if you encounter difficulty, try 
this procedure: 

• 1. POKE 54018,54 

• 2. Turn up the volume on your TV. 

• 3. Type CLOAD, and press RETURN once. 

• 4. Press the play button, and listen. 

• 5. When you hear the steady leader tone, press RETURN 

Side two of the tape is a duplicate of side one. 

SoftSide Seiections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
V^sitive magnetic media. If, after a reasonable number of attempts on 



well-adjusted, clean equipment, you are unable to load a program, 
return It to us along with a precise explanation of your problem. We 
shall send you a replacement. 

SoftSide Selections media are not copy-protected. We urge you to 
make an archival backup of your disk or tape as soon as you receive it, 
as our replacement policy is valid for only 30 days. Please resist the 
urge to give away copies of copyrighted material. 



Line Listings 

The line listings in this booklet are in standard 38-column format, 
with special conventions for representing unprintable characters: 

• You must type underlined characters, including blank spaces, in in- 
verse video. 

• When graphics or control characters are Included in a string (be- 
tween quotation marks), a nearby REM statement will make note of it; 
in such cases, graphics characters appear as the corresponding 
lower-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: The lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL. For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari Reference Manuai. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears In our listings as a right-hand 
brace, which looks like this: } . The other exception Is that a shifted 
= sign appears as a broken, vertical line: |. 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program's in- 
troductory article will clearly note the special Instructions. 



System Requirements 

The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. Also see the SoftSide Adventure Series elsewhere in this 
booklet. 



Copyright © 1983 SoftSide Pubiications, inc. 

These programs are for your personal use only. Please resist the 
urge to give away copies of copyrighted material. 
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The Best of SoftSide 

n YES. .J want to enjov the be-^t [iroyrtims — Ciinies. LUilities, 
Adventures — from SoftSide Magazine's [)<ist Please rush my 
copies of The Best of SoftSide to 

Name _^ ^_ . —. 

Address ^ _. . 

Citv^ St.ile 



Here's my order For The Best of SoftSide 




Computer 


Quantity 
Book Only 
$14.95 ea. 


Quantity 
Book plus Disk 
$49.95 ea. 


Apple'' 






Atari" 






TRS-ao" 






TOTAL COPIES 


©$14.95 


©549.95 



ViSA/MasterCard #_ 
Name of Cardholder. 



/ip 

D I've already ordered The Best of SoftSide 
book. I'm enclosing S35 for the disks only. 
I'm paying by: 

D Check # 

D Money Order # 

n VISA 

D MasterCard 

Total Enclosed $. 

(Foreign order please include 55 postage 
PAY IN USA FUNDS ONLY) 

Exp. Date 



Signature 



Like SoftSide? Wait 'til you've seen our BEST! 




The Best 
of SoftSide! 



For the past four years, SoftSide Magazine has been bringing Apple® , Atari® , and 
TRS-80® owners the best in BASIC software. But now you can do even better... The 
Best of SoftSide. From all our back issues, we've selected the most useful... the most 
entertaining... the most fun programs SoftSide has ever published. 

The Best of SoftSide is available in three versions... one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations, 
practical applications, and much more. 



To order your copy of The Best of SoftSide, fill out the coupon, and mail it along 
with $14.95 to SoftSide, 10 Northern Blvd., Northwood Executive Parle, Amherst, 
New Hampshire 03031. 



.I^' 
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Here's SoftSide Selections, the handy, pull-out 
booklet with program listings for your Atari 
400/800/1200 computer. This issue, SoftSide 
Selections for the Atari features: 



• Draw 7+ — This program lets you draw 
screens in graphics mode 7. A "blow-up" feature 
helps you draw details with ease. 

• Sharkey — Gobble up fish in this undersea 
arcade-style game, but watch out for the electric 
eels! 



• Atari DV Bonus Program: Pix 

Manipulate pre-drawn or original figures from a 
library — arrange them, change their colors and 
enlarge them — to create more intricate designs 
with this application of Peter J. Favaro's Nested 
Interpreter (Issue #43). 

• The SoftSide Adventure Series — 
Jack The Ripper II, by Peter Kirsch 

Your grandfather chased the evil Ripper to a 
watery death in the River Thames, or so he thought. 
Now it seems that the Ripper lives again... 




SOFTSIDE PUBLICATIONS, INC. 

Amherst, New Hampshire 



